home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 June / PCWorld_2007-06_cd.bin / zabezpeceni / fortknox / fk-setup_cz.exe / {app} / FortKnoxOn.vbs < prev    next >
Text File  |  2006-02-27  |  433b  |  20 lines
  1. Set objSecurityCenter = GetObject("winmgmts:\\.\root\SecurityCenter")
  2. Set colFirewall = objSecurityCenter.ExecQuery("Select * From FirewallProduct",,48)
  3.  
  4. For Each objFirewall In colFirewall
  5.   
  6.   Dim prodName, compValue
  7.   prodName = "FortKnox Personal Firewall"
  8.   compValue = StrComp(objFirewall.displayName, prodName)
  9.  
  10.   if compValue = 0 then
  11.  
  12.      objFirewall.enabled=TRUE
  13.      objFirewall.Put_
  14.  
  15.   end if
  16.  
  17. Next
  18.  
  19.  
  20.